home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
comm
/
bbs
/
trinitybbs20.lha
/
OLP
/
HangMan
< prev
next >
Wrap
Text File
|
1995-09-26
|
9KB
|
245 lines
/* this is neat.. */
options results
bufferflush
CLS = "f1"
GETUSER 1
UserName = result
transmit CLS
transmit "c1 ______ ______"
transmit "c1 | | z6HANG MAN!z0 | |"
transmit "c1 | {~} {~} |"
transmit "c1 | ( V-) c5Version 1.0c1 ( V-) |"
transmit "c1 | `|Y|' c7Written By J.L.c1 White `|Y|' | "
transmit "c1 | _|||_ c1(c6Cc1)c31989 c4Merlin's Softwarec1 _|||_ |"
transmit "c1 ___|___ ___|___"
transmit " "
GETUSER 28
type = result
if type = 0 then transmit "Sorry! Due To Cursor Movement In This Game, It Is"
if type = 0 then transmit "An ANSI Only Game. Look In The ASCII Games Section."
if type = 0 then exit
do i = 1 to 100
end
RandomNum = RANDOM(1,90,Time('s'))
/* Movie Titles */
if RandomNum = 1 then HangWord = strip("Attack Of The Killer Tomatoes")
if RandomNum = 2 then HangWord = strip("The Wizard Of Oz")
if RandomNum = 3 then HangWord = strip("Three Men And A Baby")
if RandomNum = 4 then HangWord = strip("BeetleJuice")
if RandomNum = 5 then HangWord = strip("Superman")
if RandomNum = 6 then HangWord = strip("Batman")
if RandomNum = 7 then HangWord = strip("The Terminator")
if RandomNum = 8 then HangWord = strip("Police Academy")
if RandomNum = 9 then HangWord = strip("Gone With The Wind")
if RandomNum = 10 then HangWord = strip("Star Trek")
if RandomNum = 11 then HangWord = strip("Up In Smoke")
if RandomNum = 12 then HangWord = strip("Raiders Of The Lost Ark")
if RandomNum = 13 then HangWord = strip("Casablanca")
if RandomNum = 14 then HangWord = strip("The Towering Inferno")
if RandomNum = 15 then HangWord = strip("Back To The Future")
if RandomNum = 16 then HangWord = strip("Any Which Way You Can")
if RandomNum = 17 then HangWord = strip("Missing In Action")
if RandomNum = 18 then HangWord = strip("Rambo")
if RandomNum = 19 then HangWord = strip("Poltergeist")
if RandomNum = 20 then HangWord = strip("Smokey And The Bandit")
if RandomNum = 21 then HangWord = strip("Revenge Of The Nerds")
if RandomNum = 22 then HangWord = strip("Ordinary People")
if RandomNum = 23 then HangWord = strip("Goodbye Girl")
if RandomNum = 24 then HangWord = strip("Amadeus")
if RandomNum = 25 then HangWord = strip("War Of The Worlds")
if RandomNum = 26 then HangWord = strip("The Sound Of Music")
if RandomNum = 27 then HangWord = strip("Texas Chainsaw Massacre")
if RandomNum = 28 then HangWord = strip("Night Of The Living Dead")
if RandomNum = 29 then HangWord = strip("Star Wars")
if RandomNum = 30 then HangWord = strip("Ghost Busters")
/* Musical Groups */
if RandomNum = 31 then HangWord = strip("Skinny Puppy")
if RandomNum = 32 then HangWord = strip("Dead Or Alive")
if RandomNum = 33 then HangWord = strip("Young MC")
if RandomNum = 34 then HangWord = strip("Michael Jackson")
if RandomNum = 35 then HangWord = strip("Sinead OConnor")
if RandomNum = 36 then HangWord = strip("Cyndi Lauper")
if RandomNum = 37 then HangWord = strip("Phil Collins")
if RandomNum = 38 then HangWord = strip("Janet Jackson")
if RandomNum = 39 then HangWord = strip("PetShop Boys")
if RandomNum = 40 then HangWord = strip("Fleetwood Mac")
if RandomNum = 41 then HangWord = strip("Tracey Chapman")
if RandomNum = 42 then HangWord = strip("Van Halen")
if RandomNum = 43 then HangWord = strip("Genesis")
if RandomNum = 44 then HangWord = strip("Robert Plant")
if RandomNum = 45 then HangWord = strip("Robert Palmer")
if RandomNum = 46 then HangWord = strip("Cher")
if RandomNum = 47 then HangWord = strip("Vangelis")
if RandomNum = 48 then HangWord = strip("Stevie Nicks")
if RandomNum = 49 then HangWord = strip("Ton Loc")
if RandomNum = 50 then HangWord = strip("Madonna")
if RandomNum = 51 then HangWord = strip("George Michael")
if RandomNum = 52 then HangWord = strip("Frank Zappa")
if RandomNum = 53 then HangWord = strip("Eddie Murphy")
if RandomNum = 54 then HangWord = strip("Metallica")
if RandomNum = 55 then HangWord = strip("Paula Abdul")
if RandomNum = 56 then HangWord = strip("Wierd Al Yankovic")
if RandomNum = 57 then HangWord = strip("Donna Reed")
if RandomNum = 58 then HangWord = strip("Bananarama")
if RandomNum = 59 then HangWord = strip("The Beatles")
if RandomNum = 60 then HangWord = strip("Prince")
/* Popular Sayings */
if RandomNum = 61 then HangWord = strip("Do It Yourself")
if RandomNum = 62 then HangWord = strip("One Life To Live")
if RandomNum = 63 then HangWord = strip("Who Loves Ya Baby")
if RandomNum = 64 then HangWord = strip("Kiss My Grits")
if RandomNum = 65 then HangWord = strip("Make My Day")
if RandomNum = 66 then HangWord = strip("You Look Marvelous")
if RandomNum = 67 then HangWord = strip("Bite The Bullet")
if RandomNum = 68 then HangWord = strip("All Work And No Play")
if RandomNum = 69 then HangWord = strip("Break A Leg")
if RandomNum = 70 then HangWord = strip("Girl Next Door")
if RandomNum = 71 then HangWord = strip("No Money Down")
if RandomNum = 72 then HangWord = strip("Kiss It Goodbye")
if RandomNum = 73 then HangWord = strip("Speak Of The Devil")
if RandomNum = 74 then HangWord = strip("Play It Again Sam")
if RandomNum = 75 then HangWord = strip("Come Up And See Me Sometime")
if RandomNum = 76 then HangWord = strip("Me Tarzan You Jane")
if RandomNum = 77 then HangWord = strip("The Buck Stops Here")
if RandomNum = 78 then HangWord = strip("Follow The Yellow Brick Road")
if RandomNum = 79 then HangWord = strip("Thats A Horse Of A Different Color")
if RandomNum = 80 then HangWord = strip("Cold As Ice")
if RandomNum = 81 then HangWord = strip("Start From Scratch")
if RandomNum = 82 then HangWord = strip("Whats Up Doc")
if RandomNum = 83 then HangWord = strip("Blondes Have More Fun")
if RandomNum = 84 then HangWord = strip("Kiss My Ass")
if RandomNum = 85 then HangWord = strip("Better You Than Me")
if RandomNum = 86 then HangWord = strip("Wet Your Whistle")
if RandomNum = 87 then HangWord = strip("Start From The Top")
if RandomNum = 88 then HangWord = strip("To Be Or Not To Be")
if RandomNum = 89 then HangWord = strip("No Pets Allowed")
if RandomNum = 90 then HangWord = strip("Seven Year Itch")
len = length(HangWord)
Title = 'Movie Title'
if RandomNum > 30 then Title = 'Composers/Music Groups'
if RandomNum > 60 then Title = 'Popular Saying'
Build = 0
Bonus = 15
Alphabet = "A-B-C-D-E-F-G-H-I-J-K-L-M-N-O-P-Q-R-S-T-U-V-W-X-Y-Z "
len2 = length(Alphabet)
Blanks = ''
do i = 1 to len
sub = substr(HangWord,i,1)
if sub == " " then Blanks = insert(Blanks,' ')
else
Blanks = insert(Blanks,'-')
end
transmit Title" c1---> c5Answer c1= c1[c7 "Blanks" c1]"
transmit " "
do x = 1 to 26/*main loop*/
if Build = 5 then call Lost
GotIt = 0
NewBlanks=''
GoOn = 0
do i = 1 to len
checksub = substr(Blanks,i,1)
if checksub = "-" then GoOn = 1
end
if GoOn = 0 then call Lamer
transmit Alphabet||" "
do until guess ~= ''
transmit "n1c3Type In c5QUITc3 To Exit The Gamec1."
query "n1c3Enter A Letter Or Try To Guess Correct Answerc1: c4 <2"
guess = upper(result)
if guess = "QUIT" then exit
if guess = "###PANIC" then exit
if guess = upper(HangWord) then call Won
already = 0
do i = 1 to len2
alphasub = substr(Alphabet,i,1)
if alphasub = guess then already = 1
end
if already = 0 then guess = ''
end
do i = 1 to len2
alphasub = substr(Alphabet,i,1)
if alphasub = guess then do
Alphabet = delstr(Alphabet,i,2)
end
end
len2 = length(Alphabet)
do i = 1 to len
sub = substr(upper(HangWord),i,1)
sub2 = substr(Blanks,i,1)
if sub = guess then do
NewBlanks = insert(NewBlanks,guess)
GotIt = 1
end
else
NewBlanks= insert(NewBlanks,sub2)
end
if GotIt = 0 then call Wrong
Blanks = NewBlanks
transmit "^8"
transmit Title" c1---> c5Answer c1= [c7 "NewBlanks" c1]"
transmit " "
end/*end of main loop*/
Wrong:
transmit CLS
Build = Build +1
if Build > 4 then do
transmit "c7 _______"
transmit " | | c2Sorry c3"UserName"c1,c2 You Hung Yourself!"
transmit "c1 {~} c7| c5Better Luck Next Time!"
transmit "c1( V-) c7|"
transmit "c1`|Y|' c7|"
transmit "c1_|||_ c7|"
transmit "c7 ___|___"
transmit "n9"
return
end
transmit " "
if Build = 1 then Answer = "Answer!"
else Answer = "Answers!"
transmit "c2That Is "Build" Incorrect "Answer"n2c3"
if Build > 0 then transmit " {~}"
if Build > 1 then transmit "( V-)"
if Build > 2 then transmit "`|Y|'"
if Build > 3 then transmit "_|||_"
transmit "n8 "
return
Won:
transmit "c1^1>9>9>9>9>9>1 z6You Got It Right!z0 "
transmit "n1c3You Get c7"Bonus"c3 Extra Minutes This Call For Being So Smart!"
ADDTIME Bonus
LOGENTRY""UserName" Played HangMan & Won!"
exit
return
Lost:
LOGENTRY""UserName" Played HangMan & Lost!"
shutdown
exit
return
Lamer:
Bonus = 5
transmit " "
sendstring "c1Well You Did It The Lamers Way, Butc3... "
call Won
return